home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / comm1 / voyzmm10.lha / MailTo-zmime.vrx
Text File  |  1996-05-11  |  873b  |  35 lines
  1. /*
  2.    $VER: MailTo-zmime.vrx 1.0 (11.5.96) by Ralph Seichter
  3.  
  4.    A Voyager ARexx script to send mail using Ralph Seichter's zmime MIME
  5.    user agent. A copy of zmime can be found on every Aminet mirror in the
  6.    directory comm/mail.
  7.  
  8.    You must define the full path to access zmime and the zmime config in
  9.    the first two lines of this script.
  10. */
  11.  
  12. zmime    = 'SYS:Comm/zmime/zmime'
  13. zmimecfg = zmime'.config'
  14.  
  15. /* Please don't change anything below this line. *************************/
  16.  
  17. options results
  18. parse arg receiver
  19.  
  20. if ~SHOW(PORTS, 'ZMIME.1') then do
  21.    address command
  22.    'run <>NIL: 'zmime' config='zmimecfg' pubscreen='screen' openwin=compose'
  23.    do 5 while ~SHOW(PORTS, 'ZMIME.1')
  24.       'Wait 1'
  25.       'SYS:Rexxc/WaitForPort ZMIME.1'
  26.    end
  27.    if rc = 5 then do
  28.       say "Can't run zmime!"
  29.       EXIT(10)
  30.    end
  31. end
  32.  
  33. address 'ZMIME.1'
  34. ComposeReceiver receiver
  35.